home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1997 December / MACPOWER-1997-12.ISO.7z / MACPOWER-1997-12.ISO / MacPowerオリジナル / Edutainment World / チャンプジム for DEMO / DIR / mitt.dir / 00080_Script_80 < prev    next >
Text File  |  1997-09-29  |  884b  |  32 lines
  1. on exitFrame
  2.   global SETTEI
  3.   if getAT(SETTEI,2) = 1 then set the volume of sound 2 to 255
  4.   global gCHARSqus,gCHARSans
  5.   global gCount
  6.   set gCount = gCount+1
  7.   
  8.   global gSOMON,gMONME,gMONMEmin
  9.   
  10.   -----ïð鴕êîﾇ呱©ﾇﾝﾇｨﾇ©ﾇﾋﾅA闕ﾇｻﾇｩﾇ｡ﾇ©ﾇﾋ
  11.   if gCHARSqus < gCount and gCHARSqus = gCHARSans then
  12.     go to frame "êｨ蝌"
  13.     abort
  14.   end if
  15.   if gCHARSqus < gCount and gCHARSqus < gCHARSans then
  16.     put integer((field "ïs齊笶ñんž")+1) into field "ïs齊笶ñんž"
  17.     put gSOMON-gMONMEmin into field "馗ñれî"
  18.     go to frame "ïs齊笶"
  19.     abort
  20.   end if
  21.   
  22.   put char gCount of field "qus" into qus
  23.   put char gCount of field "ans" into ans
  24.   
  25.   if chartoNum(qus) = chartoNum(ans) then
  26.     go to frame "齊笶"
  27.   else
  28.     put integer((field "ïs齊笶ñんž")+1) into field "ïs齊笶ñんž"
  29.     put gSOMON-gMONMEmin into field "馗ñれî"
  30.     go to frame "ïs齊笶"
  31.   end if
  32. end